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Guida per l'input dei programmi versioni 


C64 

Notate che i listati contengono 'pa¬ 
role' racchiuse tra parentesi graffe 
I}. Tali parole rappresentano carat¬ 
teri di controllo come mostrato nel 
sottostante riquadro. Se sono pre¬ 
cedute da un numero , questo indi¬ 
ca il numero di volte che quel tasto 
deve essere premuto. Se il simbolo 
è sottolineato deve essere premuto 
contemporaneamente a SHIFT men¬ 
tre se è racchiuso da [()] deve esse¬ 


re premuto contemporaneamente 
al tasto COMMODORE. Inoltre, se 
tra parentesi si trova un carattere 
alfabetico "solitario"’ questo dovrà 
essere premuto contemporanea¬ 
mente al tasto CONTROL. 

Con questo sistema di codifica, sa¬ 
rà molto più agevole copiare i lista¬ 
ti senza faticose e dubbie interpre¬ 
tazioni di caratteri grafici e di con¬ 
trollo del cursore o dei colori. 


{CLR} 
{HOME} 
{SU} 
{GIU' } 
{SIN} 
{DES } 

{ RVS } 
{OFF} 

{ BLK } 

{WHT} 
{RED} 


[ SHIM 

1 

ClB/H0Mt| 




ClB/HOMj] 



SHIM 

1 

Il CRSB Jil 


filmili 


SHiM |€=CBSB =3 

feÉlBr CSS& 


cm 


ersi 


□ 




{CYN} 
{PUR} 
{GRN} 
{BLU} 
{YEL} 
(<!>} 
I < 2> ) 
[<3>J 
K4>1 
(<5>J 
l<6>] 


[ CIBI 

n 

!■■■ 

CIBI 


■OMMlfl 


le] 


N 




w 


□ 


ao 

ao 

ao 

ao 

ao 

ao 


k 

[<7> 

i 

[<8> 

□ 

{FI} 

B 

{F2} 

Sii 

{F 3} 

□ 

{F4} 

K 

{F5} 

89 

{F6} 

ol 

{F7 } 

E 

■1 

{F8} 


ao 

ao 

m 

m 

KB 

m 

na 

03 


03 



Sy'J'J compilare il seguente tagliando: 


Per ricevere gli arretrati di 

X 

J x- Compilare ed inviare in busta chiusa a: 

♦ SOfl viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome 


Cognome 
Indirizzo. 


CAP_ Città 


Prov. 


Desidero ricevere i seguenti numeri arretrati di 


sterJl’J 


i iy'J’J dedicato a. 


Anno 

Anno_ 


a L. 2.000 cad. per un totale di L. 


□ assegno allegato 


□ contanti allegati 


a mezzo 


K 
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Stop Bus 


Se non l'hai già fatto, memorizza 
STOP BUG e salvalo su nastro o di¬ 
sco. 

Questo programma ti permette, 
una volta caricato ed attivato con 
RUN, di digitare i listati di Papersoft 
senza introdurre errori di battitu¬ 
ra. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola: " -.rem " seguita da un nume¬ 
ro, detto checksum; NON COPIA¬ 
RE QUESTA PARTE DELLA LINEA, 


che serve solo per tua informazio¬ 
ne. Quando STOP BUG è in funzio¬ 
ne, infatti, tutte le volte che premi 
il tasto RETURN dopo aver digitato 
una linea di programma, appare 
nell'angolo superiore sinistro dello 
schermo un numero, che deve 
coincidere con il checksum da noi 
pubblicato (sempre che tu non ab¬ 
bia usato comandi abbreviati, co¬ 
me? per PRINT). 

Usando STOP BUG tieni conto del 
fatto che gli spazi non influiscono 
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sul checksum, per cui fai particola¬ 
re attenzione alle istruzioni PRINT 
dove sono spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
STOP BUG , soprattutto se sei abi¬ 
tuato ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo RETURN su ogni linea. 


Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che STOP BUG 
interferisca,- al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare STOP BUG prima 
di ricaricare il tuo programma. 

Per disabilitare STOP BUG premi 
RUN/STOP e RESTORE, e per riatti¬ 
varlo batti SYS 40704. 


STOP BUG per C64 

1 00 POKE55,0 :POKE56,PEEK{56)-1:R=PEEK(56)*256:PRINT"{CLR} 
ATTENDERE PREGO..." 

1 10 FORI=RTOR+l32 :READA:CK=CK+A:IFA=999THENA=R/256 
120 POKEI, A:NEXT 

130 IFCK022689THENPRINT" {GIU ' }ERRORE NELLE ISTRUZIONI DA 
TA": END 

140 SYS(R) : PRINT"{CLR} { 2 GIU ' }{RVS } STOP BUG{OFF } ATTIVAT 
O.": NEW 

200 DATAI 73,36,3,201 ,32,208,1 ,96,1 41 
210 DATA33,999,173,37,3,141,34,999,169 
220 DATA32,141 ,36,3,1 69,999,141 ,37,3 

2 30 DATAI 69,0,133,254,96,32,87,241 ,1 33 
240 DATA251 ,1 34,252,1 32,253,8,201 ,1 3,240 
250 DATAI 7,201 ,32,240,5,24,101 ,254,133 
260 DATA254/165,251,166,252,164,253,40,96 
270 DATAI 69,13,32,21 0,2 55,1 65,21 4,1 41 ,251 
280 DATA3,206,251,3,169,0,133,216,169 
290 DATAT9,32,210,255,169,18,32,210,255 
300 DATAI 69,58,32,210,255,1 66,254,169,0 
310 DATAI 33,254,172,33,999,192,87,208,6 
320 DATA32,205,189,76,117,999,32,205,221 
330 DATAI 69,32,32,21 0,255,32,21 0,255,173 
340 DATA251,3,133,214,76,55,999 
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Simon's BASIC 



Simon's master 


II Master Minò è un gioco estrema- 
mente noto di cui esistono molte 
versioni, anche computerizzate. 
Questo programma, che si usa con 
l’espansione software Simon's Ba¬ 
sic, è interessante in quanto per¬ 
mette di scegliere il numero di cifre 
da indovinare: da tre a sei. 

Dato il RUN, dopo il titolo, il com¬ 
puter chiede con quanti numeri si 
vuole giocare, dopodiché sceglie 
il codice segreto (composto da ci¬ 
fre che possono anche essere 
uguali tra loro). Sulla destra dello 
schermo è riservata una zona dove 
appaiono tutte le tue scelte e due 
codici X e Y. Il numero che appare 
sotto il codice X ti dirà se ci sono 
e quante sono le cifre giuste al po¬ 
sto giusto, quello sotto il codice Y 
dirà invece se ci sono e quanti so¬ 
no i numeri giusti al posto sbaglia¬ 
to. Si possono fare fino a 30 tenta¬ 
tivi,- dopo ogni tentativo il compu¬ 


ter chiede se vuoi continuare o se 
vuoi visualizzato il codice segreto. 
Dopo 30 tentativi falliti il computer 
ti farà un benevolo rimprovero 
consentendoti però un'altra parti¬ 
ta. Il programma permette di visua¬ 
lizzare alla fine del gioco il riassun¬ 
to di tutti i tentativi effettuati. Una 
volta indovinato il codice II C64 vi¬ 
sualizza in quanti tentativi si è rag¬ 
giunto lo scopo e chiede se si vuo¬ 
le giocare ancora. 

SIMON'S MASTER è da considerar¬ 
si abbastanza facile per 3 o 4 cifre 
da indovinare, ma con 5oó numeri 
diventa un vero e proprio cimento 
scientifico. Provare per credere! 
Un'ultima avvertenza: se usi STOP 
BUG e ti è capitato di interrompere 
il funzionamento con RUN STO- 
P+RESTORE, puoi rimetterlo in fun¬ 
zione digitando 
SYS PEEK (56) *256. 


1 

REM ********************** 

: rem 

1 77 

2 

REM MASTER MIND 

: rem 

1 0 

3 

REM ********************** 

: rem 

1 79 

5 

PRINT"{HOME}{CLR}" 

: rem 

1 72 

1 0 

HIRES 0,1 :MULTI 0,2,7 

: rem 

31 

20 

EXEC TITOLO 

: rem 

98 

43 

TEXT 35,20,"{A}G E N I U S",3,8,8 

: rem 

5 

44 

TEXT 25,110,"{A}S{B}OFTWARE {A}H{B}OUSE" 

,1,3,8 




: rem 

87 

46 

TEXT 50,175,"{B}PRESENTA",1,1,8 

: rem 

207 

47 

PAUSE 5 

: rem 

30 

50 

EXEC TITOLO 

: rem 

1 01 

59 

TEXT 30,45,"{B}UNA CREAZIONE",1,1,8 

: rem 

1 91 

60 

TEXT 70,65,"{B}DI",1,1,8 

: rem 

1 98 
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4820 

4825 

4830 

4835 

4840 

4850 

4860 

4865 

4867 

4870 

4875 

4880 

4885 


IF(NU> 22ANDNU< 2 8)ORNU=43THENPRINT"C'E' SCRITTO'QUALC 
OSA.":GOTO!00 :rem 0 
IFNU=15ANDMPTHENPRINT"C'E' UNA MAPPA. SO DECIFRARLA. 


":GOTOl00 

IFNU=4lTHENPRINT"E' 

IFNU=15THENPRINT"E' 

IFNU=4 8THENPRINT"E' 

O.":GOTOl00 
IFNU=52THENPRINT"VEDO 
TOl 00 

IFNU>53THENPRINT" FORSE E' 
:GOTOl00 
IFNU=22THEN5995 
G0T04895 


:rem 16 

STRANA.":GOTOl00 : rem 138 
CANDIDO.GOTOl00 : rem 185 
ENORME. POTREBBE ENTRARCI UN UOM 


: rem 203 

LA MIA FACCIA PREOCCUPATA.":GO 

: rem 

MEGLIO NON AVVICINARSI 

: rem 
: rem 
: rem 

DELLA MIA VISTA? 


NG=NG+1:IFNG>8THENPRINT"DUBITI 
DIRLO PIU'.":GOTOl00 

IFSE=11ANDNOTGVTHENGV=-1 :L(7)=11 :PRINT"ERA 
..":GOSUB2100:GOTOl00 
IFSE=9ANDL(36)=99THENL(36)=9 :PRINT"TOH!":GOSUBl 900:G 
OTOl00 :rem 195 

IFSE=15ANDL(41)=99THENL(41)=15 :GOSUB2500 :PRINTL$:GOT 


1 85 

11 

• # 

1 38 
1 81 
236 
NON 
: rem 214 
NASCOSTO. 
:rem 235 



01 00 

: rem 

1 83 

4890 

IFSE=22ANDL(57)=99THENL(57)=22 :PRINT"IN EFFETTI.. 

IV • 

• • 


GOTOl00 

: rem 

1 84 ' 

4895 

PRINT"NON NOTO NULLA DI PARTICOLARE.":GOTOl00 




: rem 

1 99 

4900 

IFSEO 3THENPRINT"QUI ? NON SAPREI DOVE GOTOl 00 




: rem 

209 

491 0 

NA=-1 :GOTO700 

: rem 

2 

5000 

IFNU=1ANDL(1)=0THENL( 1 )=99:L(1 3) =0:GOTO82 0 

: rem 

21 2 

501 0 

IFNU= 4ANDL(4)=0THENL(4)=99:L(32)=0:GOTO700 

: rem 

220 

5020 

IFNU=1ORNU=4THEN750 

: rem 

231 

5030 

IFNUOOTHENPRINT"NON E' IL MOMENTO DI FARE 

DELLO 

SPI 


RITO.":GOTOl00 

: rem 

166 

5050 

IFNU = 0THEN7 3 0 

: rem 

50 


50 60 IFNU=1 3ANDL(13)=0ANDTE=0THENL(1)=0:L(13)=99:GOTO820 

:rem 25 

5070 IFNU=32ANDL(32)=0THENPRINT"ME LI DAI TU I FIAMMIFERI 
?":GOTOl00 : rem 101 

5080 IF(NU=130RNU=32)ANDTE=0THEN750 :rem 123 

5085 IFNU=13THENPRINT"E 1 ESAURITA.":GOTOl00 :rem 33 

5090 GOTO760 :rem 164 

5100 IF(NU=1ORNU=l3)ANDL(6)=0THENTE=0:TC=-1:L(6)=99:L(28) 
=0:GOTO700 :rem 196 

5105 IF(NU=1ORNU=l3)THENPT=1:GOT0610 :rem 236 

5110 IFNU=40RNU=32THENPRINT"N0N HO TABACCO.":GOTOl00 

: rem 113 

5120 IFNU=60RNU=2 90RNU=4 8THENPRINT"E' GIÀ' CARICA.":GOTOl 
00 :rem 255 

5130 IFNU=10ANDL(8)=0ANDL(10)=0THENL(8)=99:L(10)=99:L(29) 
=0:NC=NC-1:GOTO700 :rem 54 
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51 35 
51 40 
51 50 

51 60 
51 70 
5200 
521 0 
5220 

5230 

5240 

5250 

5260 

5270 
5280 
5300 
5400 
541 0 
5420 
5430 
5440 
5450 

5460 

5470 
5480 
5490 
5500 
5505 
551 0 

551 5 

5520 

5530 

5540 

5550 

5600 

561 0 

5620 

5650 


IFNU=10THENPT= 1 :G0T0610 
IFNU=22THEN820 

IFNU = 2 8THENPRINT"ORAMAI E' DA 


IFNU=6THENNU = 1 : GOTO5100 

GOTO 71 0 

IFNU=0THEN730 

IFNU=41THENPRINT"NON CE 


:rem 233 
:rem 102 
BUTTARE.":GOTOl00 

:rem 23 
:rem 234 
: rem 158 

:rem 47 

_ LA FACCIO.":GOTOl00:rem 243 

IFNU = 43THENPRINT"BUONA IDEA!":L(43)=99:L(34)=8:GOSUB 
8150rGOSUBl800rGOTOl00 : rem 119 

IFNU=45THENGOSUB8030:L(45)=99:L(46)=24:GOSUB3400:IFG 
I = 0THEN8800 : rem 53 

IFNU = 5 3THENGOSUB8100:L(50)=5:L(53)=99:GOSUBl 500:GOTO 
100 :rem 58 

IFNU = 52THENGOSUB80 3 0 :L(52)=99:L(51)=2 0 :GOSUB3000:IFL 
(21)ANDGI = 0THEN8800 : rem 250 

IFNU=4 8THENPRINT"NON E' NECESSARIO, PENSACI 1":GOTO!0 


0 

IFNU=450RNU=52THENl00 
GOTO780 

PRINT"USA UN ALTRO VERBOGOTO!00 

IFL(NU)AND(NU = 7 ORNU =140RNU=15)THEN750 

IFNU=7THENGI=-1:NM=6:GOTO700 

IFNU=14THEN700 

IFNU=15THENLA=-1:GOTO700 

GOTO830 


rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 


1 91 
78 
1 67 
21 5 
107 
28 
1 01 
2 

161 


IFNU=11ANDL(9)=0THENL(11)=99:L(30)=5:L(38)=5:L(12)=5 
rGOSUBl500:GOTO700 
IFNU=11THENPRINT"COME, 


IFNU=30THEN790 

IFNU=43THEN5220 

GOTO850 

IFNU=0THEN730 


: rem 

CON LE UNGHIE?": GOTO!00 

: rem 
: rem 
: rem 
: rem 
: rem 


40 

228 
1 1 3 
1 59 
1 68 
50 
209 


IFSEO5THENPRINT"E COME?" : GOTOl 00 : rem 

IFNU=30ANDL(30)=0THENL(30)=99:L(31)=0:L(35)=24:G0T07 


00 


79 


IFNU=30THENPRINT"PRIMA DEVO 


: rem 

PRENDERLA.":GOTOl00 

: rem 

IFNU=31THEN790 : rem 

IFNU=11THEN4 52 0 :rem 

IFNU>32THEN710 : rem 

PRINT"NON SONO PROGRAMMATO PER QUESTOGOTOl00 

: rem 

IFNU=370RNU=42THENL(NU)=99:L(39)=21:AG=-1:GOTO740 

rrem 247 

IFNU= 5 70RNU= 58THENPRINT"LA{SPAZI}CAB INA{SPAZI} PRECI 

1 3 
1 58 


1 52 
1 1 0 
1 52 
1 06 

1 41 


PITA!":GOSUB80 50 :GOT08900 


rem 

rem 


GOT0710 

IFNU= 3 90RNU = 4 2THENL(NU)=98:L(37)=21 :AG=0:GOTO740 

: rem 


205 
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6200 FORB=lT023 

: rem 

103 

6210 PRINTAT(1,B)"{ 23 SPAZI}"; 

: rem 

90 

6220 NEXTB 

: rem 

75 

6240 GOT05000 

: rem 

202 

6400 PRINTAT(10,12)"{ 12 SPAZI}"; 

: rem 

1 72 

6402 PRINTAT(10,14)" { 12 SPAZI}"; 

: rem 

1 76 

6404 PRINTAT(10,16)"{ 12 SPAZI}"; 

: rem 

1 80 

6410 GOTO5090 

: rem 

21 0 

1 1 000 

FORG=1TOY 

: rem 

1 38 

11 01 0 

FORH=1TOY 

: rem 

1 40 

1 1 020 

IFH=G AND M(T,G)=M(0,H)THENl 1200 

: rem 

41 

1 1 022 

NEXTH 

: rem 

1 25 

1 1 025 

NEXTG 

: rem 

1 27 

1 1 027 

FORG=1TOY 

: rem 

147 

1 1 030 

FORH=lTOY 

: rem 

1 42 

1 1 032 

IFH=GTHENl1045 

: rem 

1 24 

1 1 035 

FORF=lTOC 

: rem 

1 23 

1 1 037 

IF A (F) =G OR B ( F) =H THEN11045 

: rem 

1 6 

1 1 040 

NEXTF 

: rem 

1 23 

1 1 042 

IFM(T,G)=M(0,H)THENl 1 250 

: rem 

1 47 

1 1 045 

NEXTH 

: rem 

1 30 

1 1 047 

NEXTG 

: rem 

1 31 

1 1 048 

M(T,7)=CX:M(T, 8)=CY:M(T,0)=T 

: rem 

1 73 

1 1050 

IFT>19 THENl2000 

: rem 

1 64 

1 1 051 

FORG=1TOY 

: rem 

1 44 

1 1052 

PRINTAT(26+G,3+T)"[<6>]{RVS}"M$(T,G); 

: rem 

21 5 

1 1 054 

NEXTG 

: rem 

1 29 

1 1 056 

S=Y+l:FORP=7TOSSTEP-l:PRINTAT(26+P,3+T) 

" [<6>] {RVS} 


"; :NEXTP 

: rem 

24 

1 1 058 

PRINTAT(34,3+T)CX;AT(36,3+T)CY;"{WHT}"; 

: rem 

21 

1 1 060 

IFCX=YTHENl1300 

: rem 

220 

1 1 062 

PRINT"[< 3>]";AT(11,11)"PER";AT(11,12)"CONTINUARE" 



: rem 

235 

1 1 064 

PRINT"{RED}";AT(11,14)"{RVS} < F 1 > " 

: rem 

68 

1 1 066 

PRINT"[<6>]";AT(11,17)"PER ";AT(11,18)" 

VEDERE"; 




: rem 

252 

1 1 068 

PRINTAT(11,19)"IL CODICE" 

: rem 

235 

1 1 069 

PRINT"{GRN}";AT(11,21)"{RVS} < F 8 > "; 

"{WHT}" 




: rem 

21 2 

1 1 070 

GETH$:IF H$=""THEN 11070 

: rem 

35 

1 1 072 

IFH$<>"{Fl }"ANDH$<>"{F8}"'THENl 1 070 

: rem 

234 

1 1 075 

IFH$ = "{Fi }" THEN6200 

: rem 

246 

1 1080 

IFH$ = "{F8}"THENl 2500 

: rem 

41 

1 1 200 

CX=CX+1 

: rem 

1 95 

1 1 21 0 

C=C+1 

s rem 

20 

1 1 220 

A (C ) =G 

: rem 

79 

1 1 230 

B (C ) =H 

: rem 

82 

1 1 240 

GOTO!1025 

2 rem 

42 

1 1 250 

CY=CY+1 

2 rem 

202 

1 1 260 

C=C+1 

2 rem 

25 

1 1 270 

A (C ) =G 

2 rem 

84 
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1 1 280 

B (C ) =H 

: rem 

87 

1 1 290 

GOTO!1047 

: rem 

51 

1 1 300 

EXEC SCHEMA3 

: rem 

254 

1 1 305 

EXEC SCHEMA4 

: rem 

4 

11310 

PRINT"{RVS}[<!>]" 

: rem 

90 

1 1 320 

PRINTAT(12,10)" ****{ 4 SPAZl}*{ 2 SPAZI}* 



{ 3 SPAZI}"; 

: rem 

21 3 

1 1 330 

PRINTAT(12,11)" *{ 2 SPAZI}*{ 

4 SPAZI}* * 



{ 4 SPAZI}"; 

: rem 

131 

1 1 340 

PRINTAT(12,12)" *{ 2 SPAZI}*} 

4 SPAZI}* *{ 5 SPAZI} 


11 • 
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: rem 

1 33 

1 1 350 

PRINTAT(12,13)" *{ 2 SPAZI}*} 

4 SPAZI}* * 



{ 4 SPAZI}"; 

: rem 

1 35 

1 1 360 

PRINTAT(12,14)" **** *{ 2 SPAZI}*} 2 SPAZI}* * 

11 • 

/ 



c rem 

49 

1 1 365 

FLASH8,9 

: rem 

1 1 

1 1 370 

PAUSE5 

: rem 

1 75 

1 1 375 

OFF 

: rem 

220 

1 1 380 

PRINT"}WHT}" 

: rem 

21 1 

1 1 385 

EXEC SCHEMA4 

: rem 

1 2 

1 1 390 

PRINT"[<7>] }RVS}"; :PRINTAT(13 

,11)"HAI INDOVINATO"; 



: rem 

1 61 

1 1 400 

PRINTAT(13,13)"IN";T;"TENTATIVI{WHT}"; : rem 

62 

11410 

PAUSE 2 

: rem 

1 67 

1 1 41 5 

EXEC SCHEMA4 

: rem 

6 

1 1 420 

PRINTAT(14,10)"{RVS}[<7>]VUOI 

VEDERE"; :rem 

1 34 

11425 

PRINTAT(13,12)"IL TUO SCORE ? 

:rem 

42 

1 1 430 

PRINTAT(13,14)"{YEL}S <Fl> }PUR}N <F3> }WHT}"; 




: rem 

1 64 

1 1 440 

GETN?:IF N$=""THENl1440 

: rem 

49 

1 1 450 

IFN$<>"}F1 }"ANDN$ <>"{F3}"THENl 1 440 :rem 

241 

1 1 460 

IFN$="{Fi}"THENl3000 

: rem 

38 

1 1 470 

IFN$ = "{F3}"THENl1510 

: rem 

44 

11 51 0 

EXEC SCHEMA4 

: rem 

2 

1 1 520 

PRINTAT(12,11)"{RVS}[<7>]VUOI 

CONTINUARE?"; 




: rem 

2 

1 1 530 

PRINTAT(13,14)"{YEL}S <Fl > }PUR}N <F3> }WHT}"; 




: rem 

1 65 

1 1 540 

GETN$:IF N$=""THENl1540 

: rem 

51 

1 1 550 

IFN$ <>"{Fi }"ANDN$<>"}F3}"'THENl 1 54 0 :rem 

243 

1 1 560 

IFN$ = "{Fi }"THENRUN 90 0 

: rem 

1 93 

1 1 570 

IFN$ = "{F3}"THEN EXEC SCHEMA4 

: rem 

63 

1 1 580 

PRINT"[<1>]{RVS}"; 

: rem 

1 58 

1 1 590 

PRINTAT{12,10)"***{ 2 SPAZI}* 

{ 3 SPAZI}*{ 2 SPAZI} 


* * * »* • 

/ 

: rem 

50 

1 1 600 

PRINTAT(12,11)"*{ 4 SPAZI}**{ 

2 SPAZI}*{ 2 SPAZI}* 


{ 2 SPAZI}*"; 

: rem 

21 5 

1 1 61 0 

PRINTAT(12,12)"**{ 3 SPAZI}* 

* *{ 2 SPAZI}* 



{ 2 SPAZI}*"; 

: rem 

3 

1 1 620 

PRINTAT(12,13)"*{ 4 SPAZI}*{ 

2 SPAZI}**{ 2 SPAZI}* 


{ 2 SPAZI}*"; 

: rem 

21 9 


10 



1 1 630 

PRINTAT(12,14)"***{ 2 SPAZI}*{ 3 SPAZI}* 

{ 2 SPAZI} 


*** ** • 
r 

: rem 

49 

1 1 640 

FLASH8,9 

: rem 

7 

1 1 650 

PAUSE7 

: rem 

1 78 

1 1 660 

OFF:PAUSE! 

: rem 

1 94 

1 1 670 

PRINT"{CLR}": END 

: rem 

1 1 6 

1 2000 

FORG=lTOY 

: rem 

1 39 

1 201 0 

PRINTAT(26+G,T-l6)"[<6>]{RVS}"M$(T,G); 

: rem 

8 

1 2020 

NEXTG 

: rem 

1 23 

1 2030 

S=Y+1 :FORP= 7 TOSS TEP-1 :PRINTAT(26+P,T-16) 

"[< 6>] {RVS} 


"; :NEXTP 

: rem 

71 

1 2040 

PRINTAT(34,T-16)CX;AT(36,T-16)CY;"{WHT}" 

; : rem 

1 21 

1 2050 

FORA=l091TOll01 

2 rem 

1 42 

1 2052 

POKEA+(T-l6)*40,160:POKEA+(T-l6)*40+V,14 

2 rem 

205 

1 2054 

NEXTA 

2 rem 

1 24 

1 2056 

PRINT"{WHT}"; 

2 rem 

1 5 

1 2060 

IFT>30THEN13500 

2 rem 

1 65 

1 2065 

IFCX=Y THEN PAUSE2: GOTO! 1 300 

2 rem 

5 

1 2070 

GOTO!1062 

2 rem 

45 

1 2500 

EXEC SCHEMA3 

2 rem 

1 

1 2507 

EXEC SCHEMA4 

2 rem 

9 

1 251 0 

PRINTAT(13,11)" [<7>] {RVS}CODICE SEGRETO" 

; 2 rem 

73 

1 2520 

FORF=lTOY 

2 rem 

145 

1 2530 

PRINTAT(17-Y+2*F,13)M(0,F); 

2 rem 

52 

1 2540 

NEXT 

2 rem 

59 

1 2550 

PRINT"{WHT}PAUSE 5 

2 rem 

1 92 

1 2560 

GOTOl 1415 

2 rem 

51 

1 3000 

EXEC SCHEMA! 

2 rem 

251 

1 301 0 

PRINT"[<7>]";AT(4,3)"CODICE SEGRETO"; 

2 rem 

52 

1 3020 

FORF=lTOY 

2 rem 

141 

1 3030 

PRINT" [<7>] {RVS} " ; AT (19 + 2*F,3)M(0,F) ; 

2 rem 

1 66 

1 3040 

NEXT 

2 rem 

55 

1 3045 

PRINTAT(21+2*Y,3)" {WHT}"; 

2 rem 

1 50 

1 3050 

FORF=lTOY 

2 rem 

144 

1 3060 

PRINT"{CYN}";AT(1+F,6)CHR$(64+F); 

2 rem 

247 

1 3070 

NEXT 

2 rem 

58 

1 3080 

PRINTAT(10,6)"X";AT(12,6)"Y";"{WHT}"; 

2 rem 

16 

1 3090 

FORF=1 TOT 

2 rem 

1 43 

1 31 00 

FORG=lTOY 

2 rem 

1 41 

1 31 1 0 

PRINT"[<6>]{RVS}";AT(G+1,7+F)M$(F,G); 

2 rem 

1 92 

1 31 20 

NEXTG 

2 rem 

1 25 

1 31 22 

S=Y+1 :FORP = 7TOSSTEP-1 :PRINTAT(P+1 ,7+F)" [ 

<6>]{RVS} " 


;: NEXTP 

2 rem 

21 1 

1 31 25 

PRINT"{RVS}[< 6 >]";AT(9,7+F)M(F,7) ;AT(11, 

7+F)M(F 

,8) ; 



2 rem 

1 99 

1 31 27 

IFF=15THEN13350 

2 rem 

1 61 

1 31 30 

NEXTF 

2 rem 

1 25 

1 31 40 

PRINT"{WHT}"; : GOTO! 3500 

2 rem 

11 8 

1 3350 

FORF=lTOY 

2 rem 

1 47 

1 3360 

PRINT"{CYN}";AT(14+F,6)CHR$(64+F); 

2 rem 

46 

1 3370 

NEXT 

2 rem 

61 


11 



13380 PRINTAT(23,6)"X";AT( 25,6) " Y" ; "{WHT}"; :rem 27 

1 3390 FORF=l6TOT : rem 200 

1 3400 FORG=lTOY : rem 144 

1 3410 PRINT"[<6>]{RVS}";AT(G+14,F-8)M$(F,G); :rem 250 

1 3420 NEXTG : rem 128 

1 3422 S=Y+1 :FORP = 7TOSSTEP-l :PRINTAT(P+1 4,F-8) "[<6>] {RVS} 

"; :NEXTP : rem 13 

13425 PRINT"{RVS}[<6>]";AT(22,F-8)M(F,7);AT(24,F-8)M(F,8) 

; : rem 255 

1 3430 NEXTF : rem 128 

13440 PRINT"{WHT}"; :rem 13 

13500 PRINTAT(27,11)"{GRN}PER";AT(27,13)"CONTINUARE"; 

:rem 61 

13510 PRINTAT(26,15)"[<6>] S{ 2 SPAZl}{RVS}{ 2 SPAZl}F 1 
{ 2 SPAZI}"; : rem 91 

13520 PRINTAT(26,17)"{PUR} N{ 2 SPAZI}{RVS}{ 2 SPAZljF 3 
{ 2 SPAZI}.{WHT}"; :rem 99 

13530 GETN$:IFN$<>"{Fi}"ANDN$<>"{F3}"THENl3530 :rem 128 

13540 IFN$="{Fi}"THEN RUN900 :rem 193 

1 3550 EXEC SCHEMA3 : rem 7 

1 3555 EXEC SCHEMA4 : rem 13 

13560 GOTO!1580 :rem 55 

1 4000 PAUSE!:EXEC SCHEMA3 : rem 231 

14005 EXEC SCHEMA4 :rem 4 

14010 PRINT"{RVS}[<7>]" ;AT(14,10)"30 TENTATIVIrem 32 

14020 PRINTAT(12,12)"DOVEVANO{ 2 SPAZI}ESSERE"; :rem 4 

14030 PRINTAT(13,14)"SUFFICIENTI{ 2 SPAZI}!{WHT}"; 

:rem 62 

1 4040 PAUSE5 : rem 172 

1 4050 GOTO! 141 5 :rem 47 

2 0000 PROC SCHEMA! : rem 8 

2001 0 PRINT"{HOME}{CLR}" : rem 106 

20020 FORA=l024TO1063:POKEA,127:POKEA+V,7:NEXT :rem 4 
20040 FORA=1 063TO2023STEP40:POKEA,127 :POKEA+V,7 :NEXT 

:rem 166 

20060 FORA=2023TOl 984STEP-1:POKEA,127 :POKEA+V,7 :NEXT 

:rem 174 

2 00 80 FORA=1 984T01024STEP-40:POKEA,127 :POKEA+V,7 :NEXT 

:rem 227 

20085 END PROC : rem 10 

20090 PROC SCHEMA2 :rem 18 

201 00 FORA=1 089TO1 969STEP40 tPOKEA,127 :POKEA+V,7 :NEXT 

:rem 189 

20101 FORB=0TO22 :rem 145 

20102 FORA=1090TOl102 :rem 139 

20103 POKEA+BMO, 1 60 :POKEA+B*40+V, 1 4 :rem 219 

2 01 04 NEXT A srem 119 

20105 NEXTB srem 121 

20110 END PROC : rem 255 

201 20 PROC ISTRUZIONI : rem 73 

20125 EXEC SCHEMA! srem 1 


12 



20130 PRINTAT(3,5)"{RED}*!*{ 2 SPAZI}IL COMPUTER SCEGLIE 



LE CIFRE"; 

2 rem 

23 

201 40 

PRINTAT(3,6)"{ 5 SPAZl}DEL CODICE ! 

SEGRETO <3/6)' 

II 



: rem 

21 3 

201 50 

PRINTAT(3,8)"{PUR}*2*{ 2 SPAZl}HAI 

A DISPOSIZIONE 3 


0 TENTA"; 

: rem 

53 

201 60 

PRINTAT(3,9)"{ 5 SPAZI}TIVI PER INDIVIDUARLO" 




: rem 

245 

201 90 

PRINTAT(3,11)"{BLU}* 3 *{ 2 SPAZI}IL 

COMPUTER TI 

INDI 


CHERA CON"; 

: rem 

93 

20200 

PRINTAT(3,1 2) "{ 5 SPAZI}[<3>]X {BLU}&{ 2 SPAZI} 



[<6>]Y {BLU}IL NUMERO DELLE CIFRE" 

: rem 

235 

2021 0 

PRINTAT(3,13)"{ 5 SPAZI}ESATTE NELLA{ 2 SPAZl}POSIZ 


IONE [< 3>]ESAT"; 

: rem 

95 

20220 

PRINTAT(3,14)"{ 5 SPAZljTA {BLU}& 

[<6>]ERRATA" 

• 

f 



: rem 

222 

20240 

PRINTAT(9,19)"[<6>]PER INIZIARE {RVS}{GRN} 



{ 2 SPAZI}F 1{ 2 SPAZI}" 

: rem 

0 

20241 

PRINT"{WHT}" 

: rem 

207 

20245 

FLASH5,13 

: rem 

48 

20250 

GETA$ :IFA$ = ""0RA$O"{Fl }"THEN20250 

2 rem 

94 

20260 

IFA$="{Fi}"THEN 20265 

2 rem 

34 

20265 

PAUSE! 

2 rem 

174 

20270 

OFF 

2 rem 

21 4 

20277 

EXEC SCHEMA3 

2 rem 

1 1 

20279 

EXEC SCHEMA4 

2 rem 

1 4 

20280 

END PROC 

2 rem 

7 

22000 

PROC SCHEMA3 

2 rem 

1 2 

221 20 

FORA=1354T01373:POKEA,127:POKEA+V, 

4 2 NEXT 2 rem 

14 

221 40 

FORA=1 373TO1 693STEP40 :POKEA,127:POKEA+V,4 :NEXT 




2 rem 

1 82 

221 60 

FORA=1 693TO1 674STEP-1 :POKEA,127:POKEA+V,4 :NEXT 



- 

2 rem 

1 82 

221 80 

FORA=1 674T01 354STEP-40:POKEA,127:POKEA+V,4 :NEXT 



• 

2 rem 

229 

22250 

END PROC 

2 rem 

6 

23000 

PROC SCHEMA4 

2 rem 

1 4 

2301 0 

FORB=0TO6 

2 rem 

101 

23020 

FORA=1 395 TO1412 

2 rem 

1 53 

23030 

POKEA+BMO, 1 60 :POKEV+A+B*40 , 1 4 

2 rem 

221 

23040 

NEXTA 

2 rem 

1 21 

23050 

NEXTB 

2 rem 

1 23 

23070 

END PROC 

2 rem 

7 
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n 

» 

ji II taglialegna 


Questo sioco fa abbondante uso 
della tecnica di ridefinizione dei 
caratteri, e risulta quindi essere 
molto bello graficamente. Un gufo 
cattivo ha rubato l'ascia, strumento 
di lavoro dell'infaticabile tagliale¬ 
gna. Tu guidi il boscaiolo al recu¬ 
pero de! maltolto, ma le difficoltà 
che incontri lungo il percorso sono 
tante: devi arrampicarti sopra delle 
scale a pioli, che però prima occor¬ 
re slegare saltando sotto di esse,- il 
percorso risulta essere difficoltoso 


a causa della presenza di voragini 
ed altri trabocchetti; infine il malva¬ 
gio uccello continua a lanciarti ad¬ 
dosso tronchi, che tu devi riuscire 
a saltare per evitare una fine pre¬ 
matura. 

Per comandare gli spostamenti del 
taglialegna utilizza i tasti "D" (per 
salire le scalette), "Z" e "C" (per 
avanzare verso sinistra e verso de¬ 
stra) e la barra spaziatrice per sro¬ 
tolare le scale ed evitare i tronchi. 
Buona caccia! 


4 P0KE51 ,0:POKE52,48:POKE55,0:POKE56,48 :POKE53280,1 :POKE5 


3281,1 

: rem 

1 85 

8 

POKE53272,(PEEK(53272)AND240)+12 

: rem 

87 

1 2 

PRINT"{CLR}";CHR$(142) 

: rem 

235 

1 6 

PRINTSPC(13);"{BLK}IL TAGLIALEGNA" 

: rem 

76 

20 

PRINT"{BLU}{ 3 SPAZI}SEI UN TAGLIALEGNA E 

UN GUFO 

TI H 


A" 

: rem 

46 

24 

PRINT"{ 12 SPAZI}RUBATO LA SCURE{GIU'}" 

: rem 

36 

28 

PRINTSPC(19);"{YEL})*" 

: rem 

8 

32 

PRINTSPC(19);"+," 

: rem 

1 05 

36 

PRINTSPC(19){RED}" 

: rem 

1 41 

40 

PRINT"{GIU'}{ 3 SPAZI}DEVI RAGGIUNGERE IL 

GUFO SALTAND 


0 1" 

: rem 

3 

44 

PRINT”TRONCHI E ARRAMPICANDOTI PER LE SCALETTE”; 

: rem 

1 71 

48 

PRINT"{ 8 SPAZI}CHE DEVI PRIMA SGANCIARE" 

: rem 

59 

52 

PRINT"{ 5 SPAZI}OGNI 8000 PUNTI VINCI UN 

OMINO” 

: rem 

91 

56 

PRINT"{GIU 1 }{ 16 SPAZI}COMANDI" 

: rem 

72 

60 

PRINT 

: rem 

243 

64 

PRINTSPC(20);"SU" 

: rem 

1 83 

68 

PRINTSPC(20);"D" 

: rem 

87 

72 

PRINTSPC(10);"SINISTRA Z C DESTRA" 

: rem 

21 8 

76 

PRINTSPC(11);"{GIU*}SPAZIO PER SALTARE" 

: rem 

236 

80 

FORI = 1T05 8 :READC:NEXTI 

: rem 

1 1 3 

84 

FORI = 1 22 88T012 799 :READC: POREI,C:NEXT 

: rem 

1 92 

88 

RESTORE 

: rem 

148 






92 PRINT 
96 PRINTSPC 
100 GETRE$: 
104 DATAI 82 
108 DATA34, 
,400 

112 DATAO,0 
116 DATAI 00 
5,500,- 
120 DATA60 > 
124 DATA60, 
128 DATAI 24 
1.32 DATA60, 
136 DATAI 24 
140 DATAI 24 
144 DATAI 24 
148 DATA60, 
152 DATAI 02 
156 DATA24, 
160 DATAI 2, 
164 DATAI 02 
168 DATA96, 
172 DATA66, 
176 DATA70, 
180 DATA60, 
184 DATAI 24 
188 DATA60, 
192 DATAI 24 
196 DATA60, 
200 DATAI 26 
2 04 DATAI 02 
2 08 DATAI 02 
212 DATAI 02 
216 DATAI 02 
220 DATAI 02 
224 DATAI 26 
228 DATA56, 
2 32 DATAI 22 
2 36 DATA28, 
240 DATA94, 
244 DATAI 26 
248 DATAO,0 
252 DATA28, 
256 DATA62, 
260 DATA62, 
264 DATA50, 
268 DATA38, 
272 DATA48, 
276 DATAI 35 
280 DATAI 03 
284 DATA7,9 


(13);"PREMI UN TASTO":POKEl 98,0 
IFRE$ = ""THENl 00 
5,1702,1382,1505 

75,400,0,0,40,34,75,300,0,0,40,34,75, 

,40,35,134,300,34,75,100,0,0,40,34,75 

,0,0,40,34,75,300,0,0,40,34,75,100,0, 

66; 1 53,1 65,165,1 53,66,60 
102,102,126,102,102,102,0 
,102,102,124,102,102,124,0 
102,96,96,96,102,60,0 
,102,102,102,102,102,124,0 
,96,96,120,96,96,124,0 
,96,96,120,96,96,96,0 
102,96,110,102,102,60,0 
,102,102,126,102,102,102,0 
24,24,24,24,24,24,0 
12,12,12,12,108,56,0 
,108,120,112,1 20,108,102,0 
96,96,96,96,96,124,0 
102,126,126,102,102,102,0 
102,118,126,110,102,102,0 
102,102,102,102,102,60,0 
,102,102,124,96,96,96,0 
102,102,102,110,102,62,1 
,102,102,124,120,108,102,0 
102,96,60,6,102,60,0 
,24,24,24,24,24,24,0 
,102,102,102,102,102,60,0 
,102,102,60,60,24,24,0 
,102,102,126,126,102,66,0 
,102,60,24,60,102,102,0 
,102,102,60,24,24,24,0 
,6,12,24,48,96,126,0 
124,127,24,236,195,68,56 
,127,126,56,56,48,48,56 

62.254.47.55.67.34.28 

254.126.28.12.12.12.28 

, 66, 1 26, 66,126,66,1 26,66 
, 0 , 0 , 0 , 0 , 0,0 
62,62,1 27,1 27,1 27,62,28 
1 27,1 27, 1 27,54,54,1 1 8,7 
127,127,127,54,54,55,112 
254,254,50,48,48,48,48 
52,8,62,125,125,123,62 
56,36,38,111,253,214,96 
,133,165,165,245,37,39,0 
, 1 49,1 49,1 01 , 1 49,1 49, 1 03,0 
, 29,31 , 27, 1 2,1 00,254 

15 


: rem 

248 

: rem 

40 

: rem 

241 

: rem 

1 02 

1 00, 

34,75 

: rem 

1 91 

: rem 

60 

0,40 

,34,7 

2 rem 

1 1 9 

: rem 

239 

: rem 

243 

: rem 

42 

: rem 

83 

: rem 

37 

2 rem 

1 44 

2 rem 

1 08 

2 rem 

161 

2 rem 

33 

2 rem 

228 

2 rem 

8 

2 rem 

43 

2 rem 

78 

2 rem 

2 

2 rem 

1 

2 rem 

1 94 

2 rem 

1 88 

2 rem 

204 

2 rem 

45 

2 rem 

27 

2 rem 

1 3 

2 rem 

236 

2 rem 

105 

2 rem 

253 

2 rem 

149 

2 rem 

99 

2 rem 

34 

2 rem 

255 

2 rem 

1 98 

2 rem 

105 

2 rem 

130 

2 rem 

252 

2 rem 

108 

2 rem 

1 93 

2 rem 

1 96 

2 rem 

236 

2 rem 

1 54 

2 rem 

1 42 

2 rem 

1 99 

2 rem 

246 

2 rem 

74 

2 rem 

35 



288 

DATAI 92,32,1 1 2,240,1 76, 96,76,2 54 

: rem 

48 

292 

DATA255,248,242,240,225,104,98,96 

: rem 

97 

296 

DATA254,62,30,94,14,44,12,76 

: rem 

95 

300 

DATAI 00,48,26,15,4,4,28,62 

: rem 

230 

304 

DATA44,1 52,48,1 24,64,64,1 1 2,248 

: rem 

238 

308 

DATA2 55, 1 94,1 27,1 94,255,66,1 26,66 

: rem 

1 04 

31 2 

DATA60,102,110,126,118,102,60,0 

: rem 

203 

31 6 

DATA8,24,56,24,24,24,60,0 

: rem 

1 85 

320 

DATAbO,102,6,60,96,96,127,0 

: rem 

32 

324 

DATA60,102,6,28,6,102,60,0 

: rem 

223 

328 

DATAI 2,28,60,1 08,1 26,12,12,0 

: rem 

70 

332 

DATAI 26, 96,124,6,6,102,60,0 

: rem 

26 

336 

DATA60,102,96,124,102,102,60,0 

: rem 

165 

340 

DATAI 26, 1 02,12,24,2 4,24,24,0 

: rem 

60 

344 

DATA60,102,102,60,102,102,60,0 

: rem 

1 51 

348 

DATA60,102,102,62,6,102,60,0 

: rem 

64 

352 

DATA255,170,85,170,255,0,0,0 

: rem 

77 

356 

DATA96,255,255,7,3,0,0,0 

: rem 

1 41 

360 

DATA3,4,9,10,10,9,4,3 

: rem 

233 

364 

DATAI 92,32,144,80,80,144,32,92 

: rem 

1 90 

368 

DATAO,0,0,7,1 43,255, 255, 1 99 

: rem 

41 

372 

DATA4,20,62,239,231 ,22 3,2 54,5 

: rem 

131 

376 

FORI = 542 72T054 2 96 :POKEI,0 :NEXTI 

: rem 

1 42 

380 

POKE54 2 96,1 5 

: rem 

1 02 

384 

POKE542 77,64:POKE54278, 1 28 :POKE54272, 

34:POKE54273 

,75 


:rem 173 


3 88 POKE54 2 83,1 28 2POKE542 84,64 2POKE542 79,43 2POKE542 80,52 




: rem 

171 

392 

POKE54290,2:POKE54291 , 4 :POKE54286,51 :POKE54287,97 

: rem 

16 

396 

SC=0:NM=3:BM=8000:BR$="{BLU}-.{SU}{ 2 

SIN}+,{SU} 



{ 2 SIN})*":BP=990:SC$ = "{HOME}{BLU}PUNTI" : rem 

1 99 

400 

FL=2:PRINT"{CLR}":PF=1:PO$="{HOME}{ 25 

GIU 1 } " 

: rem 

1 71 

404 

BP$ = "{BLK}BONUS{GIU'}{ 5 SIN}PUNTI{GIU 

' }{ 5 SIN}" 

: rem 

1 86 

408 

GOSUBl 01 2-.PRINT" {CLR}" 

: rem 

126 

41 2 

FORL= 55296T055296 + 1 000:POKELl ,2:NEXT 

: rem 

105 

41 6 

Rl$-"{ 3 DES}":R2$-"{DES}":PL$: 


> • t « 

• • • « 



2 rem 

61 

420 

MN=1822:MC=56094:H=29:B=38 

2 rem 

152 

424 

GOSUB644 :ONPFGOSUB588 ,620 

2 rem 

1 4 

428 

TI$="000000":TM$=TI$:PB=BP 

2 rem 

152 

432 

LG=1192 :DR=2:GOSUB4 84 

2 rem 

207 

436 

IFSC=>BMANDNM< 5THENNM=NM+1 :BM=BM+8000: 

GOSUB656 :GOSUB 


668 

2 rem 

234 

440 

GOSUB504 

2 rem 

177 

444 

K=PEEK(197) 

2 rem 

59 

448 

IFK=64THEN4 60 

2 rem 

234 

452 

IFK= 1 20RK=2 00RK=60 ANDH0 33THENGOSUB6 80 

2 rem 

1 1 9 

456 

IFK=18ANDPEEK(MN-40)=31THENGOSUB828 

16 

2 rem 

1 34 







460 IFVAL(TI$) >VAL(TM$)ANDPB>OTHENPB = PB-10 :TM$=TI$ 

:rem 67 


464 PRINTSC$;SC:PRINT"{HOME}"TAB(15);BP$;RIGHT$(STR$(PB), 



LEN(STR$(PB))-1);"{ 2 SPAZI}" 

: rem 

1 86 

468 

IFPEEK(MN+80)=320RPEEK(MN+80)=59THEN876 

: rem 

59 

472 

IFMN= <1152THEN936 

: rem 

21 8 

476 

IFLG>MN+80THENPOKELG, 32 :G0T0432 

: rem 

1 89 

480 

GOTO440 

: rem 

109 

484 

POKEMN,H:POKEMC,0 :POKEMN+4 0,B:POKEMC + 4 0,0 : RETURN 




: rem 

50 

488 

POKEMN,32 :POKEMC,2 :POKEMN+4 0,32 :POKEMC + 4 0,2 : 

RETURN 



: rem 

1 22 

492 

FORI=MNTOMN+l60STEP40 :POKEMN,32 :MN=I :MC=1 +54272 :GOSUB 


484 :GOSUB504 :NEXT 

: rem 

220 

496 

PB=PB-100:IFPB< 0THENPB = 0 

: rem 

1 83 

500 

RETURN 

: rem 

1 1 7 

504 

POKELG,32 

: rem 

236 

508 

ONDRGOT0512 ,532 ,552 ,564 

: rem 

250 

51 2 

IFPEEK(LG+40)=32THENLG=LG+40:DR=3:RETURN 

: rem 

220 

51 6 

LG=LG-1 

: rem 

93 

520 

IFLG=MN+40THEN888 

: rem 

247 

524 

POKELG,0 

: rem 

1 85 

528 

RETURN 

: rem 

1 27 

532 

IFPEEK(LG+40)=32THENLG=LG+40:DR=4:RETURN 

: rem 

223 

536 

LG=LG+1 

: rem 

93 

540 

IFLG=MN+4 0THEN8 88 

: rem 

249 

544 

POKELG,0 

: rem 

1 87 

548 

RETURN 

: rem 

1 29 

552 

IFPEEK(LG+40)=HTHEN888 

: rem 

31 

556 

IFPEEK(LG+4 0)=32THENLG=LG+40 :POKELG,0 : RETURN 

: rem 

252 

560 

DR=2 : RETURN 

: rem 

1 86 

564 

IFPEEK(LG+40)=HTHEN888 

: rem 

34 

568 

IFPEEK(LG+40)=32THENLG=LG+40 :POKELG,0 : RETURN 

: rem 

255 

572 

DR=1 :RETURN 

: rem 

1 88 

576 

IFDR=2THENDR=1:G0T0584 

: rem 

1 25 

580 

IFDR=1THENDR=2 

: rem 

1 00 

584 

RETURN 

: rem 

1 29 

588 

PRINT"{RED}"LEFT$(PO$,6)R2$PL$LEFT$(PO$,10)Ri$PL$LEFT 


$ ( PO$ ,14); 

: rem 

69 

592 

PRINTR2 $ PL$ LE FT$(PO$,l8)Ri$PL$ 

: rem 

244 

596 

PRINTLEFT$(PO$,22)PL$" : : : 

: rem 

75 

600 

POKEl 259,47:POKEl 388,47:POKEl 579,47:POKEl 70 9 

,47 




: rem 

1 68 

604 

FORI=0TO80STEP40 

: rem 

226 

608 

POKEl 299 + 1,32:POKEl 428 + 1,32 :POKEl619+1,32 :POKEl 479+1, 


32 

: rem 

1 02 

61 2 

NEXTI 

: rem 

33 

61 6 

RETURN 

: rem 

125 

620 

GOSUB588 :CL=54272 

: rem 

1 99 

624 

POKEl715,59 :POKEl715+CL,6:POKEl 733+CL,6:POKEl 733, 

59 



: rem 

170 
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62 8 POKEl 572,59:POKEl 572+CL,6 :POKEl 556, 59:POKEl 556+CL,6 

: rem 182 

632 POKEl413,59:POKEl 41 3+CL,6:POKEl 395,59:POKEl 395+CL,6 

:rem 167 

636 POKEl 245, 59:POKEl 245+CL,6 : rem 133 

64 0 RETURN : rem 122 

644 PRINTLEFT$(PO$,4)"{RED} <="LEFT$(PO$,5)"{RED} @@";BR$ 

:rem 94 

64 8 RESTORE : rem 198 

652 FORI=lT02:READPl,P2:POKEPl,37:POKEPl+54272,4:POKEP2,3 



8 :POKEP2 + 54272,4:NEXTI 

: rem 

76 

656 

FORI=lTONM+1:POKEl070+1,32:NEXT 

: rem 

1 36 

660 

FORI = 1TONM:POKEl 070 + 1,36 :POKE55342 + 1,5 :NEXT 

: rem 

108 

664 

RETURN 

: rem 

1 28 

668 

REM 

: rem 

136 

672 

FORI = 1T02:POKE54283,33 :FORJ=1T07:NEXTJ:POKE54283, 

32 : N 


EXTI 

: rem 

75 

676 

RETURN 

: rem 

131 

680 

GOSUB488 

: rem 

1 94 

684 

IFK=12THENMN=MN-1 :H = 29 :B = 30:MC=MC-1 

: rem 

87 

688 

IFK=20THENMN=MN+1 :H=27 :B = 28:MC=MC + 1 

: rem 

91 

692 

IFMN= >1 863THENMN=1 863:MC = 56135 

: rem 

252 

696 

IFMN=1823THENMN=MN+40:MC=MC+40 

: rem 

49 

700 

IFPEEK(MN+40)=370RPEEK(MN+40)=38THENGOSUB484 

:GOSUB82 


0 

: rem 

249 

704 

IFK=60THENGOSUB736 

: rem 

103 

708 

GOSUB484 

: rem 

1 91 

71 2 

IFH=2 9ANDPEEK(MN-39)=31THENPOKEMN+1 ,31 :POKEMN+41 , 

31 



: rem 

64 

71 6 

IFH=2 7ANDPEEK(MN-41)=31THENPOKEMN-1,31 :POKEMN+39, 

31 



: rem 

68 

720 

IFPEEK(MN+80)=59THENGOSUB492 

: rem 

1 97 

724 

IFPEEK(MN+80)=32THEN876 

: rem 

70 

728 

POKE54283,1 29 :POKE54283,1 28 

: rem 

21 2 

732 

POKEl98,0:RETURN 

: rem 

227 

736 

IFH=2 9THENMN=MN-41 :MC=MC-41 

: rem 

1 24 

740 

IFH=27THENMN=MN=39:MC=MC-39 

: rem 

131 

744 

GOSUB484 :IFMN+80=LGTHENGOSUB804 

: rem 

209 

748 

IFPEEK(MN+1 20)=59THENPOKEMN+1 20,32 :POKEMC + 120,2:GOSUB 


804 

: rem 

95 

752 

IFPEEK(MN-40)=47THENJM=1 

: rem 

1 71 

756 

IFH=2 9ANDPEEK(MN+1)=31THENGOSUB788 :G0T0768 

: rem 

11 2 

760 

IFH=2 7ANDPEEK(MN-1)=31THENGOSUB7 92 :G0T0772 

:rem 

97 

764 

GOSUB504 :GOSUB4 88 

: rem 

24 


768 IFH=29THENMN=MN+39:MC=MC+39:IFJM=1THENGOSUB796 

:rem 174 

772 IFH=27THENMN=MN+41 :MC=MC+41 :IFJM=1THENGOSUB800 

:rem 139 

776 IFPEEK(MN+40)=370RPEEK(MN+40)=3 8THENGOSUB82 0 

:rem 172 
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780 GOSUB484 :IFMN=18230RMN=1822THENGOSUB488 :MN=MN+40:MC 
=MC+40 :rem 41 

784 RETURN :rem 131 

788 POKEMN + 75, 31 :POKEMN+82,31:GOSUB504 :GOSUB488 :RETURN 

: rem 14 0 

792 POKEMN + 39, 31 :POKEMN+78, 31 :GOSUB504 :GOSUB488 :RETURN 

:rem 140 

796 POKE542 76,1 7 :FORI=MN-3 9TOMN+41STEP4 0 :POKEI,31 :NEXTI:J 



M=0:POKE54 2 76,1 6 :RETURN 

: rem 

26 

800 

POKE542 76,1 7:FORI=MN-41TOMN+39STEP40 :POKEI,31 :NEXTI:J 


M=0:POKE542 76,1 6 :RETURN 

: rem 

1 2 

804 

POKE54 2 90,1 29 :SC=SC+40:POKEMN+1 60,39:POKEMC+l60,0 




: rem 

62 

808 

POKEMN+1 60,32:IFPEEK(MN+1 20)=4 7THENPOKEMN + 160,31 : 

POKE 


MC+160,2 

: rem 

97 

81 2 

POKE542 90,1 28 

: rem 

1 49 

81 6 

RETURN 

: rem 

1 27 

820 

POKE542 83,33:POKEMN+1 20,40 :POKEMC + 120,0 

: SC=SC+80 




: rem 

252 

824 

FORD=1TOl00:NEXT:POKEMN+1 20,32 :POKEMC + 120,2:POKE54283 


,32:RETURN 

: rem 

1 02 

828 

POKE54 2 83,1 29 

: rem 

1 59 

832 

H=33:B=34 

: rem 

1 68 

836 

FORI=1T04 

: rem 

22 

840 

MN=MN-4 0 :MC=MC-4 0 

: rem 

200 

844 

IFI=1THENPOKEMN+80,31:POKEMC+80,2 

: rem 

236 

848 

GOSUB4 84 :POKEMN + 4 0,35 

: rem 

235 

852 

IFI<4THENPOKEMN+40,31:POKEMC+40,2 

: rem 

229 

856 

IFI = 4THENPOKEMN+80,47 :POKEMC + 80 ( 2 

: rem 

249 

860 

FORJ=lTOl O'.NEXTJ 

: rem 

4 

864 

NEXTI 

: rem 

42 

868 

POKE542 83,1 28 

: rem 

1 62 

872 

RETURN 

: rem 

129 

876 

POKEMN,32 :POKEMC,2 :MN=MN+40 :MC=MC + 40 

: rem 

185 

880 

IFPEEK (MN+80) 032THEN888 

: rem 

1 37 

884 

G0T0876 

: rem 

1 30 

888 

GOSUB488 :IFH=27THEN904 

: rem 

79 

892 

POKEMN+40 + 1 , 63:POKEMC + 4 0 + 1 ,0 :POKEMN + 40, 

62 :POKEMC+40,0 


:POKEMN,32 

: rem 

205 

896 

GOSUB924 

: rem 

1 98 

900 

POKEMN+40 + 1 ,32:POKEMC + 40 + 1,2 :POKEMN+40, 

32 :POKEMC + 40,2 


:POKEMC,2:G0T0916 

: rem 

149 

904 

POKEMN+40-1,62 :POKEMC + 40-1,0:POKEMN+40, 

63 :POKEMC+40,0 


:POKEMN,32 

: rem 

203 

908 

GOSUB92 4 

: rem 

1 92 

91 2 

POKEMN+40-1,32:POKEMC+40-1,2 :POKEMN+40, 

32:POKEMC+40,2 


:POKEMC,2• 

: rem 

1 37 

91 6 

NM=NM-1 :GOSUB65 6 :IFNM=0THEN3 96 

: rem 

1 1 0 

920 

POKELG,32:H = 29:B = 30:POKELG+542 72,2 :POKEl98,0:GOT0416 



: rem 

50 
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92 4 READLO: IFLO=-1THENRESTORE:FORD=1TOl 500 :NEXT:POKE542 90 
,32:RETURN - : rem 117 

928 READHI,DUR:POKE54287,LO:POKE54 286,HI :POKE542 90,33 :FOR 
N=1TODUR:NEXT : rem 179 

932 POKE54 290,32 : G0T0924 :retn 116 

936 FORI=4TOlSTEP-1 :rem 177 

940 IFI>2THENPRINTLEFT$(PO$,I)TAB(3)BR$ :rem 140 

944 1FI = 2THENPRINTLEFT$(PO$,I)TAB(3) LEFT$(BR$,8) : rem 147 

948 IFI = 1THENPRINTLEFT$(PO$,I)TAB(3)LEFT$(BR$,3) : rem 145 

952 IFI<5THENPRINTLEFT$(PO$,1+1)TAB(3)"{ 2 SPAZI}" 

: rem 120 

956 FORD=lTO500:NEXTD,I :rem 167 

960 PRINT"{HOME}"TAB(4)"{ 2 SPAZI}":FORD=lTOl000:NEXT 

: rem 211 

964 IFBP< = 0THEN996 : rem 68 

968 FORL=lT08:PRINT"{HOME}"TAB(15)"{ 5 SPAZI}":FORD=lTO20 
0 :NEXT : rem 148 

972 PRINT"{HOME}{BLK}"TAB(15)"BONUS":FORM=180TO235STEP2:P 


OKE54290,33:NEXTM:POKE54290,32:NEXTL : rem 230 
976 FORJ=PBTOOSTEP-10 :SC=SC+10 :POKE54276,1 7 :rem 119 
980 PRINTSC$SC:PRINT"{HOME}"TAB(15)BP$;RIGHT$(STR$(J),LEN 



(STR$(J))-l);"{ 2 SPAZI}" 

: rem 

1 83 

984 

POKE54276;16:NEXTJ 

: rem 

50 

988 

IFSC>HITHENHI=SC:PRINT"{HOME}";TAB(25) 

;"HIGH n ; HI 




: rem 

1 31 

992 

IFSC=>BMANDNM< 5THENNM=NM+1 :BM=BM+800 :GOSUB656 :GOSUB6 


68 

: rem 

193 

996 

BP=BP+500:FORD=lTOl500:NEXT:GOSUB488 : 

POKELG,32 




: rem 

105 

1 000 

IFBP>4 000THENBP=990 

: rem 

1 32 

1 004 

PF=PF+1:IFPF>2THENPF=1 

: rem 

1 40 

1 008 

GOT0416 

: rem 

1 57 

1 01 2 

POKEl98,0:PRINTCHR$(8)"{BLU}" 

: rem 

1 65 

1 01 6 

PRINT"{ 9 GIU'}{ 12 SPAZI}IL TAGLIALEGNA" :rem 

224 

1 020 

PRINTSPC(12)"{ 2 GIU'}PREMI UN TASTO" 

:POKEl98/0 




: rem 

98 

1 024 

GETA$:IFA$ = ""THENl 024 

: rem 

1 77 

1 028 

POKE53280,7:POKE53281 , 13 :RETURN 

: rem 

1 1 7 


A 

O* 

pj II fantasma del teatro - terza parte 


Ultima parte del tuo fantastico Ad- tuo C64, avendo ovviamente pre¬ 
venture Game. Memorizzala sul cedentemente caricato le prime 
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due parti. 

Salva quindi FANTASMA DEL 
TEATRO su nastro o disco e poi... - 
RUN! 

Ricordiamo ai meno esperti che un 
gioco di tipo Ad venture si basa su 
un dialogo parlato tra il giocatore 
e il computer. Sono ammesse frasi¬ 
composte da un verbo + un nome 
(es. "apri la porta ") o singole paro¬ 


le (es. "aiuto"). Ricordati comun¬ 
que che, anche quando ti capita di 
impostare frasi o parole che il com¬ 
puter non è in grado di capire, non 
insorgerà nessuna condizione di 
errore-, il tuo C64 si limiterà a chie¬ 
derti ulteriori spiegazioni. Buon di¬ 
vertimento e...occhio ai lenzuoli 
bianchi! 


8500 IFLLTHEN790 :rem 195 

8501 LL=-1:IFSE=29THENPRINT"TROPPO TARDI!":G0T08900 

:retn 71 

8502 LL= -1 : PRINTCHR$ ( 1 4 7 ) " C ' E ' SCRITTO : " : IFSE01 7ANDSE02 

7ANDSEO29THEN8540 : rem 148 

8505 PRINT"CARO' AMICO, TI RINGRAZIO. DA VIVO AMAVO L’AMLE 
TO, MA QUANDO LO VIDI”; : rem 83 

8507 PRINT" INTERPRETAREDA UN PESSIMO ATTORE MORII D’INFA 

RTO: ILMIO SCHELETRO :rem 231 

8508 PRINT"GIACE SUL PALCO DI PROSCE-NIO. UNA MALEDIZIONE 

MI OBBLIGAVA A SEN-T"; • :rem 145 

8510 PRINT"IRLO RECITARE OGNI SERA FINCHE’ NON A- VESSI R 
ITROVATO IL MIO GUANT"; :rem 49 

8515 PRINT"0. ORA SONO LIBERO, MA LA TUA AVVENTURA CONTIN 
UA:{ 3 SPAZI}TORNA A CASA E :rem 100 

8520 PRINT"TROVERAI UNA COSA CHE IN VITA MI FU CARISSIMA, 
MA CHE ORA NON MI SE"; : rem 62 

8530 PRINT"RVE PIU’.. ADDIO. " : L ( 24) =2 9 :rem 197 

8535 PRINT:PRINTTAB(14)"IL FANTASMA DEL TEATRO":PRINT:PRI 
NT :GOTOl00 : rem 144 

8540 PRINT"DOVEVI ASPETTARE!":GOT08900 :rem 253 

8550 PRINT:■ PRI NT" £31 TRATTA DI..." :GOSUB8000:POKES+3,8 :POK 

ES+6,240:POKES+13,236 :rem 94 

8551 GOSUBl5 :PRINT:PRINT"UN ABBONAMENTO PERPETUO PER IL 

TEATRO {. 2 SPAZI}{SPAZI}HO{ 2 R}OR !" : rem 48 

8552 FORN= 1 2T031:POKES,LF(N) :POKES+1,HF(N) ;POKES + 7,EF(N)/ 

2 :POKES+8,HF(N)/2 : rem 239 

8553 POKES + 4,65 :POKES + 11,17:FORT=1TODU(N)*30:NEXT:POKES+4 

,64:FORT=lTO20:NEXT :rem 0 

8554 NEXT:POKES+6,250:POKES,30:POKES+1,25:POKES + 4,65 

: rem 157 

8555 FORT=lT02 52STEP6:POKES + 8,T:POKES + 11 ,17 :NEXT:POKES,20 

9 :POKES+1,18 :rem 83 

8570 PRINT:PRINT:PRINT:PRINTCHR$(159)"(PERO’, COMPLIMENTI 

! ) " : rem 167 

8571 POKES + 4,65:FORT= 252T06STEP-6:POKES + 8,T:POKES+1 1 ,17:N 

EXT:POKES+4,64 :rem 182 
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8572 

8573 
8580 

8590 

8700 

871 0 
8720 

8800 

881 0 
8820 


8850 

8860 

8870 

8900 
891 0 

8920 

8930 

8940 

8950 

9000 

9005 

901 0 

9020 

9021 

9030 

9050 

9060 

9070 

9080 


GOSUBl5 :POKES + 11,16 :PRINT:PRINT:PRINTTAB(15)CHR$(18) 
CHR$(150)" FINE " : rem 132 
GOSUBl5 :GOSUB80 00:GOTO8930 :rem 134 
PRINTL$:PRINT"UN POLIZIOTTO MI VEDE CON IL LENZUOLO! 
":GOSUBl5 :rem 5 
PRINT"FINISCO IN GALERA PER ACCERTAMENTI!":GOT08900 

:rem 49 

PRINT:IFL(1)=0THENPRINT"LA TORCIA SI SPEGNE..." :GOSU 
Bl5 : rem 55 
PRINT"QUALCOSA INVADE TUTTO IL TEATRO!" : rem 86 
GOSUBl 5 :PRINT:PRINT"UN'OMBRA GELIDA MI AVVOLGEG 
OSUBl5:GOTO8900 :rem 130 
PRINT" AHIO !":PRINT"MI SONO FERITO LA MANO!":GOSUBl5 

: rem 5 

PRINT"PERDO MOLTO SANGUEGOSUBl5 : rem 148 
PRINT:PRINT"MUOIO DISSANGUATO PER COLPA TUA!":G0T089 
00 :rem 90 


PRINT"IL CUSTODE HA NOTATO QUALCOSA.PRINT"SONO S 
TATO SCOPERTO!" : rem 24 8 

GOSUBl5:PRINT:PRINT"MI HA CACCIATO FUORI A CALCIONI! 
" : rem • 141 

PRINT"CHE FIGURA MI HAI FATTO FARE, INCAPACE!" 

:rem 59 

GOSUB8000 :POKES+3,12:POKES+5,11 :PRINT:PRINT: rem 250 
PRINT"FINE{SPAZI}DE{ 2 L}'A{ 2 V}ENTURA":FORN=1TOl1 : 
POKES,LF(N) :POKES + 1,HF(N) : rem 85 

POKES + 4,65 :FORT=1TODU(N)*150 :NEXT:POKES+4,64:NEXT:GO 
SUB8000 :rem 238 

GOSUBl5:PRINT:PRINT:PRINTCHR$(30)"PER GIOCARE ANCORA 
PREMI RETURN ." :rem 168 

GOSUBl0900:RUN :rem 126 

PRINT"SONO IN STRADA. TEATRO SI CHIUDE DIE-TRO DI 
ME.": GOTO8 900 :rem 161 

POKE532 80,0 :POKE532 81 , 0:PRINTCHR$(147)CHR$(158)CHR$( 
14)CHR$(8); : rem 63 

PRINT"SONO NELLA PLATEA DI UN VECCHIO TEATRO." 

:rem 175 

SE=3:C=1 :CS = 1 :DC=1 :NC=4:NM=5:S=54272 :POKE56590,PEEK( 
56590)ORI 28 :rem 212 

H=11 :M=3 0:POKE56585,0:GOSUBl1 :PRINT"LA RAPPRESENTAZI 
ONE DELL'AMLETO E' AP-" : rem 93 

PRINT"PENA TERMINATA E LA GENTE STA USCENDO." 

: rem 210 

GOSUB8000:POKES+24,15 : rem 243 

DIMO$(60) ,L(60) ,V$(40) ,LF(31) ,HF(31) ,DU (31) : rem 184 

FORNAITO60:READO$(N) ,L(N) :NEXT:FORN=lTO4 0: READV$(N) : 
NEXT : rem 63 

FORN=1T031:READLF(N),HF(N),DU(N):NEXT :rem 55 

PRINT:PRINT"^L GRANDE LAMPADARIO SI STA SPEGNENDO.": 
GOSUBl5 : rem 126 
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9093 PRINT: PRINT"NON C'E' PIU' NESSUNO. L'OSCURITÀ' E"' 

:rera 12 

9094 PRINT"INTERROTTA DA UNA DEBOLE LUCE LONTANA.":GOSUBl 

3 :rem 75 

9095 PRINT:PRINT"VEDO QUALCOSA DI INTERESSANTEPRINT" 

{ 2 SPAZI}UNA BATTERIA DA 9 VOLT" : rem 16 

90 96 PRINT:PRINT"POSSO ANDARE A :":NO=4:SO=2:PRINT"NORD S 
UD":GOTO!00 . r è m 1Ò7 

1 0000 V= 53248 :POKEV+21,0 :POKEV+32,0 :POKEV+33,0 : rem 138 

10010 PRINTCHR$ (1 47)CHR$ (8)CHR$ (1 42) CHR$ (159) ; :rem 12 

10020 PRINT"{ 2 SPAZI}} 2 l}{ 3 SPAZl}UCIUCIUI{ 2 U}[<R>1 

IUCIUCIUIUIUCI " - ; rem 58 

10030 PRINT"{ 2 SPAZI}} 2 B}{ 3 SPAZl}B} 2 SPAZI}B{SPAZI} 
{ 4 B} B B{SPAZI}} 2 B}{SPAZI} { 5 B} B" :rem 137 
10040 PRINT"} 2 SPAZI}} 2 bT{ 3 SPAZI}[<Q>]C [<Q>]C[<W>] 

{ 3 B} B [<Q>]C[<W>1 JCIBJKB [<Q>1C[<W>1" : rem 146 

10050 PRINT"} 2 SPAZI}} 2 B}{ 3 SPAZl}B{ 2 SPAZI}B{SPAZI} 
t 4 B} B B{SPAZI}B {SPAZI}} 2 B}J 2 SPAZI}}~2 B} B 

, „ : rem ~7 

10060 PRINT"} 2 SPAZI}} 2 J}C{ 2 SPAZI}K{ 2 SPAZl}K JKJK 

JS K { 2 J}C{ 2 K}{ 2 SPAZI} JK J": PRINT : rem T36 

1 0070 PRINT"} 2 SPAZI} [<A>] CIUC { 2 _I}T 4 SPAZI}U[<R>]IUC 

IUCIU[<R>]I[<A>]CIUCI" : rem 46 

10080 PRINT"} 2 SPAZI} B { 2 B}} 2 SPAZl}B{ 5 SPAZl}B B 
{ 2 SPAZI}B{SPAZI}B B B}SPAZI}{ 2 B}{SPAZI}B" 

:rem 132 

10090 PRINT"} 2 SPAZI}B B[<Q>]C B{ 5 SPAZI}B [<Q>]C [<Q>] 
C[<W>] B [<Q>] [<R>]KB{SPAZI}B" : rem 222 

10100 PRINT"} 2 SPAZI}B { 2 B}{ 2 SPAZl}B{ 5 SPAZl}B B 

{ 2 SPAZ I} B{ SPAZ I} 13 B T 2 B} B{SPAZl}B" : rem 221 

10110 PRINT"} 2 SPAZI} [<Z>]CKJCKJC{ 4 SPAZIÒ JC{ 2 K} J 
K KJCJCK " : rem - 23 

10120 POKE2040,1 3:POKE2041 , 1 4 : rem 58 

10130 FORI = 0TOl27 :READB:POKE832 + 1,B:NEXT : rem 200 

1021Q POKEV+28,2 :POKEV+37,1 :POKEV+38,10 :POKEV+23,1 :POKEV+ 
39,1:POKEV+40,7 :rem 15 

1 0220 POKEV,105 :POKEV+1,120 :POKEV+2,76 :POKEV+3,151 :POKEV+ 
27,2 :rem 92 

1 0230 GOSUB8000:POKES+24,15 : rem 29 

10240 PRINT:PRINT:PRINTTAB(14)CHR$(18)CHR$(28)CHR$(169)" 

[< 3 P>]"CHR$(223) : rem 66 

1 0250 PRINTTAB ( 6) CHR$ ( 5) CHR$ (182) CHR$ ( 1 8) " { 2 SPAZl}£ 

{ 3 SPAZI}{RED}ONUCIM " : rem 230 

10255 PRINTTAB(6)CHR$(5)CHR$(167)CHR$(18)"{ 5 SPAZI}{RED} 
ONU[<X>]W[<Z>]IM " ; rem 195 

10260 PRINTTAB(7)CHR$(18)CHR$(5)"{ 2 SPAZl}}RED}0 

[< 3 Y>]PB[<7>]0[<Y>]P{RED}BO[< 3 Y>]P" :rem 159 

1 0265 PRINTTABT7)CHR$Tl 8)CHR$ (5)CHR$ (1 80) " Tred}[<G>] 

[<1>]TEATRO HORROR{RED}[<M>]" : rem 11 
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10270 PRINTTAB(7)CHR$(18)CHR$(5)CHR$(181)" {RED}[<G>] 

[< 8>]0{DES}P{DES}P{ 3 DES}P{DES}P{DES}P{RED} [<M>]" 

:rem 33 

10275 PRINTTAB (7)CHR$ (1 8)CHR$ (5)CHR$ (1 61 ) " {RED}[<G>] 

[<8>] [<G>] {DES} [<N>] {DES} [<N>] {OFF} [<4>]UCI{RVS} 
[<8>] [<N>] {DES}[<N>] {DES}[<N>] {RED}[<M>]" : rem 28 
1 0280 PRINTTAB ( 7) CHR$ ( 5) CHR$ (182) CHR$ (18)" {RED}[<G>] 

[<8>] [<G>] {DES} [<M>] {DES} [<M>] {OFF}[<4>]B{SPAZ I } B 
{RVS} [<8>] [<M>] {DES}[<M>] {DES} [<M>] {RED} [<M>]" 

:r em 20 7 

10285 PRINTTAB(7)CHR$(5)CHR$(170)CHR$(18)" {RED}[<G>] 

[<8>] [<G>] {DES}[<N>] {DES}[<N>] {OFF} [<4>]B B" ; 

: rem 211 

1 0290 PRINTCHR$(18)CHR$(155)"[<M>] {DES}[<M>] {DES}[<M>] 
{RED}[<M>]PRINTTAB(10)CHR$(152)"[< 13 U>]" 

:rem 61 

1 0300 POKEV+21,3 :GOSUBl 0800 :rem 25 

10310 PRINTTAB(25)CHR$(154) "{ 10 SU} UCI "CHR$(129)"[<S>]U 
IUI[<A>] [<S>]" : rem 198 

10320 PRINTTAB(25)CHR$(154)"B"CHR$(158)"C"CKR$(154)"B"CHR 
$ (1 29) "BJ[<W>] [<Q>] [<W>] [<Z>]^" : rem 178 

1 0330 PRINTTAB(25)CHR$(154)"JCK"CHR$(129)"[<E>] JKJKJK " 

:rem 61 

1 0340 PRINTTAB(25)CHR$ (1 8)CHR$ (31 ) CHR$ (1 69)CHR$ (158)" 

[<A>]CIUCI[<A>]C[<S>]" : rem 105 

1 03 50 PRINTTAB (2 5) CHR$ (1 8)CHR$ ( 31 ) CHR$ (32)CHR$ (158)" [<Q>] 
CKB [<S>] [<Q>]C " : rem 136 

1 0360 PRINTTAB(25)CHR$(18)CHR$(31)CHR$(32)CHR$(158)"[<E>] 

{ 2 SPAZI}JCK[<E>] { 2 SPAZI}" : rem 44 

10370 PRINTTAB(25)CHR$(18)CHR$(31)"{ 9 SPAZI}"CHR$(146)CH 
R$ (169) :rem 171 

1 0380 PRINTTAB (1 6)CHR$ (1 8)CHR$ (1 49) ". {GIU'} {SIN} ”TAB(25) 
CHR$(146)CHR$(30)"PREMI RETURN" : rem 181 

1 0390 PRINTTAB(25)"PER COMINCIARE." : rem 76 

10400 GOSUBl0900:PRINTCHR$(147):POKEV+21,0 :rem 205 

10405 PRINT:PRINTTAB(15)CHR$(152)CHR$(18)" AVVISO ":PRINT 
:PRINT : rem 43 

10410 PRINTCHR$(159)"QUESTO NON E' UN GIOCO DI AZIONE E " 

: rem 156 

10420 PRINT"RIFLESSI, MA UNA PROVA DI INTELLIGENZA 

{ 2 SPAZI}E SOPRATTUTTO DI PAZIENZA." :rem 61 

10430 PRINT:PRINTCHR$(158)"CHI NON NE HA, STIA ALLA LARGA 
!":PRINT : rem 33 

10440 PRINTSPRINT:PRINTTAB(15)CHR$(5)"PIERGIORGIO FUSCO, 

1 985" : rem 48 

10450 PRINT:PRINT:PRINT:PRINT:PRINTCHR$(30)"PREMI RETURN. 

":GOSUBl0900 :rem 219 

10510 PRINTCHR$(147);:POKEV,56:POKEV+l,56:POKEV+2,24:POKE 
V+3,77:POKEV+21,3 :rem 198 
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1 0520 

1 0530 

1 0540 

1 0550 

1 0560 

1 0570 

1 0580 

1 0590 

1 0600 
1 0605 

1 061 0 

1 0620 

1 0630 

1 0640 

1 0645 

1 0650 

1 0660 


PRINTCHR$(14)CHR$(159)TAB(9)"IMMAGINA CHE UN TUO AM 
ICO, IM-" :rem 88 

PRINTTAB(9)"PERSONATO DAL COMPUTER, SIA IN" 

: rem 1 98 

PRINTTAB(9)"UN LUGUBRE TEATRO ABITATO DA UN" 

:rem 224 

PRINTTAB(9)CHR$(145)"FANTASMA SANGUINARIO. 

{ 2 SPAZI}L'AMICO" : rem 46 

PRINTTAB(9)"E' POCO INTELLIGENTE E PIUTTO-" 

■ : rem 166 

PRINTTAB(9)"STO ANALFABETA, COSI' "CHR$(158)"TU"CHR 
$(159) " SEI LA" : rem 229 

PRINTTAB(9)CHR$(145)"SUA SOLA SPERANZA DI SALVEZZA. 

SE SAPRAI SALVARLO, :rem 102 

PRINT"E NON TI ARRENDERAI,POTRAI CONQUISTARE UN RIC 
CO TESORO, MA{ 2 SPAZI}ATTEN"; :rem 35 

PRINT”TO AI TREMENDI PERICOLI!" : rem 197 

PRINT:PRINTCHR$(158)"CONSIGLI UTILI DA RICORDARE."C 
HR$(30) : rem 230 

PRINT"DEVI DARE ORDINI SCRITTI AL COMPUTER; 

{ 3 SPAZI}USA SEMPRE UN VERBO COME :rem 96 

PRINT"PRIMA PAROLA E BATTI SEMPRE "CHR$(158)" RETUR 

: rem 1 

EVITA LETTERE MAIUSCOLE E PUNT 

: rem 1 95 
USA LE SO 
:rem 63 


II 


N"CHR$(30)" DOPO , 

PRINT"CIASCUN ORDINE _ 
EGGIATURA." 

PRINT"PER ANDARE VERSO UN 
LE LETTERE "CHR$(5)"N"; 


PUNTO CARDINALE 


PRINTCHR$(30)","CHR$(5)"S"CHR$(159)","CHR$(5)"E"CHR 
$(30)","CHR$(5)"O"; : rem 187 

PRINTCHR$(30)". PER L'INVENTA- RIO DEGLI OGGETTI PR 
ESI BATTI "CHR$(5); :rem 231 

PRINT"I"CHR$(30)". ESPLO- RA, RIFLETTI, DISTRUGGI, 
PROVA QUALSIASICOMA"; : rem 41 

10670 PRINT"NDO. PUOI ANCHE CHIEDERE AIUTO." :rem 227 


1 0680 GOSUB8 000 : GOTO6 :rem 240 

1 0800 POKES,71 :POKES + 1,6 :POKES + 3,8 :POKES + 4,64 :POKES + 6,2 50 

: rem 152 

10810 FORN=1T03:POKES+4,65 :GOSUBl 0860 :GOSUBl 0860 : rem 151 

10820 POKES+4,64:GOSUBl0860:NEXT :rem 164 

10830 POKES,251:POKES+l,4:POKES+4,65zGOSUBl0860:FORT=1T08 
00:NEXT:POKES+4,64 :rem 109 

10840 RETURN :rem 221 

1 0860 FORT=1TO2 00:NEXT:POKEV+3,PEEK(V+3)-1 :RETURN 

:rem 65 

1 0900 GETA$ : IFA$OCHR$ ( 1 3) THENl 0900 :rem 198 

10910 RETURN :rem 219 

11000 DATAI,255,0,7,255,192,15,255,240,31,255,248,63,255, 

252.63.255.254.123.255 :rem 98 

11010 DATA222,124,60,62,126,60,126,127,255,254,127,255,25 

4.127.255.254.63.255 :rem 4 
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1 1 020 

1 1 030 

1 1 040 

1 1 050 

1 1 060 
1 2000 

1 201 0 

1 2020 

1 2030 

1 2040 

1 2050 

1 2060 

1 2070 

1 2080 

1 2090 

1 21 00 

1 21 05 
1 211 0 

1 21 20 
1 21 30 

1 21 40 

1 21 50 

1 21 60 
1 21 70 

1 21 80 

1 21 90 

1 2200 


DATA2 52,63,1 93,252,63,182,252,31,127,120,15,255,248 
,15,255,252,31,255,252 :rem 96 
DATA63,255,254,127,255,255,0,0,4,4,0,1 6,16,4,96,96, 
16,162,128,24,162,128 :rem 42 
DATA40,162,129,40,162,129,40,162,138,40,170,138,10, 
170,170,10,171,232,2 :rem 223 
DATAI 74,1 68,2,1 70,1 60,0,1 70,1 60,0,1 70,128,0,1 70,1 28 
,85,85,80,95,85,80,127 :rem 97 
DATA213,80,127,213,80,95,85,80,0 :rem 123 
DATA"TORCIA ELETTRICA ACCESA",2,"MATITA",2,"BICCHIE 
RE COLMO DI BIRRA",1 :rem 254 
DATA"PIPA ACCESA",!,"FORMAGGIO",1,"BATTERIA",3 

:rem 252 

DATA"GUANTO CON UNA 'A' D'ORO RICAMATA",99,"PROIETT 
ILE",11,"TENAGLIA",14 :rem 116 
DATA"PISTOLA",14,"TRAVE",5,"CHIODI", 99,"TORCIA SPEN 
TA",99 :rem 173 
DATA"COSTUME DA AMLETO",15,"LENZUOLO",9,"CIPRIA",20 
,"PILLOLA",20 : rem 220 
DATA"SCALA",21,"BICCHIERE VUOTO",99,"CHIAVE",0,"FAZ 
ZOLETTO",0 :rem 204 
DATA"OROLOGIO",0,"BIGLIETTO",0,"CARTONCINO",99,"FOG 
LIO",13 :rem 74 
DATA"LETTERA",99,"FOGLIETTO",99,"BATTERIA ESAURITA" 


,99 :rem 122 

DATA"PISTOLA CARICA",99,"TRAVE SCHIODATA",99,"TRAVE 
LEGATA",99 :rem 20 

DATA"PIPA SPENTA",99,"BENE",99,"PASSAGGIO",99,"CORD 
A",5 :rem 251 

DATA"BUCO NELLA CUPOLA",99,"INTERRUTTORE ALZATO",99 

: rem 217 

DATA"FORO NEL PAVIMENTO" ,99 :rem 189 

DATA"INTERRUTTORE ABBASSATO", 99 ,"CUNICOLO", 99 ,"PARE 
TE", 99 :rem 113 

DATA"INTERRUTTORE" ,21, "MANIFESTO" ,8 :rem 20 

DATA"PULSANTE" ,23, "LUCERNARIO" ,24, "LUCERNARIO ROTTO 
", 99, "SCHELETRO" ,12 :rem 138 

DATA"PENDOLA", 26 ,"BIRRA", 1 ,"SCENE SFONDATE", 99 ,"SPE 
CCHIO ROTTO", 99 :rem 238 


DATA"SPECCHIO",20,"SCENE POLVEROSE",5,"CUSTODE ADDO 
RMENTATO",99 :rem 216 
DATA"CUSTODE",99,"TOPO INFEROCITO",7 :rem 20 

DATA"LEVA",99,"LEVA ALZATA",99,"SP",99,"SP",99 

: rem 116 

DATAGUAR,PREN,ESAM,SALI,SCEN,NASO,POSA,LASC,SPEG,AC 
CE,CARI,RICA,CAMB,ROMP :rem 115 
DATAMETT,STRA,INFI,INDO,SCHI,STAC,LEGA,ATTA,ABBA,AL 
ZA,SPIN,PREM,TIRA,ASPE : rem 161 
DATAFUMA,LEGG,SFON,ENTR,SCRI,BEVI,MANG,SPAR,UCCI,ES 
CI,SALT,AIUT :rem 9 
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12210 DÀTA71,5,5,71,5,3,71,5,1,71,5,5,71,6,3,237,5,1,237, 
5,3 : rem 153 

12220 DATA71,5,1,71,5,3,251,4,1,71,5,15 :rem 147 

1 22 30 DATA3 0,2 5, 8,2 0 9,1 8,8,30,25,8,209,1 8, 8,30,25, 8,20 9,1 
8,8,30, 25, 8,209,1 8, 8 : rem 254 

12240 DATA239,19,6,239,19,2,239,19,2,239,19,2,239,19,2,23 
9,19,2 :rem 95 

12250 DATA96,22,6,96,22,2,96,22,2,96,22,2,96,22,2,96,22,2 

:rem 34 


? 


Orologio-calendario 


u 

•O 

*o 

u 


Come avrete certamente capito, 
questo non è un sioco, ma un pro¬ 
gramma per uso pratico. 

Ciò che rende molto simpatico 
questo programma è il fatto che il 
calendario può essere usato inse¬ 
rendo qualsiasi data fino al 9999; 
è fino esagerato, dato che anche 
la maggior parte dei libri di fanta¬ 
scienza arrivano tuttalpiù fino al¬ 
l'anno 2500! Comunque se non vi 
ricordate più il giorno della vostra 
nascita, o volete sapere il giorno in 
cui è nato Garibaldi fate pure, que¬ 
sto è il vostro programma. 
Quando usate il calendario per in¬ 
vestigare su date storiche, state at¬ 
tenti che il corrente calendario, 


chiamato Gregoriano, non fu intro¬ 
dotto che dal 1582 (e in Inghilterra 
dal 1752). 

Avete inoltre anche la possibilità 
di inserire un orologio con ore, mi¬ 
nuti e secondi. 

Istruzioni 

Premendo "N" e "L” appare rispet¬ 
tivamente il mese precedente e 
quello successivo rispetto a quello 
visualizzato al momento. Con “C" 
e "X" si accende e si spegne l’oro¬ 
logio. Il tasto "D" serve per fare 
risaltare una particolare data, infi¬ 
ne premendo “B" scompaiono le 
istruzioni (che riappariranno ripre¬ 
mendo nuovamente "B"). 


1 rem***CALENDARIO* * * : rem 227 

5 POKE53280,6:POKE53281 , 1 :PRINTCHR$(31) : rem 14 

10 DIMA(31) : rem 49 

15 N$ = ” 1 2 3 4 5 6 7 8 91 01 1 1 21 31 41 51 61 71 81 92021 22"! 


:rem 86 

17 N$=N$+"232425262728293031 " : rem 151 

20 M$="*GENNAIO*FEBBRAIO*MARZO*APRILE*MAGGIO*GIUGNO*LUGLI 
O*AGOSTO*SETTEMBRE*" : rem 58 

25 M$ =M$-(-"OTTOBRE*NOVEMBRE*DICEMBRE* " : rem 43 

30 LL=LEN (M$ ) : rem 217 
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3 5 D$ = "DOMLUNMARMERGIOVENSAB" 

40 C$="303232332323" 

45 TY=1985:REM ** QUEST'ANNO ** 

50 FORJ=lT039:CL$=CL$+CHR$(32):NEXT 

100 PRINTCHR$(147);TAB (1 4)"{RVS}CALENDARIO{OFF}" 

HO PRINT" { 5 GIU'}DESIDERI L ' ANNO"TY" ? (S/N)" 

120 GETQ$:IFQ$=""THENl20 

130 IFQ$="S"THEN200 

140 IFQ$<>"N"THENl20 

150 PRINT 

160 INPUT"SCRIVI L'ANNO RICHIESTO (4 NUMERI){ 2 
{ 3 SIN}";TY$ 

170 IFTY$-"*"THENPRINT"{ 2 SU}":GOTOl60 
1 80 IFLEN ( TY$ ) O40RVAL ( TY$ ) < 1 ORVAL-( TY$ ) <>INT(VAL 
NPRINT"{ 2 SU}":GOTO!60 
190 TY=VAL(TY$) 

200 PRINT"{HOME}{ 9 GIU'}" 

205 INPUT"SCRIVI IL MESE RICHIESTO{ 3 SPAZI}*{ 3 


: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
SPAZI 
: rem 
: rem 
( TY$ ) 
: rem 
: rem 
: rem 
SIN} 


1 30 
169 
21 3 
75 
142 
241 
105 
45 
103 
35 

}* 
230 
207 
) THE 
119 
137 
15 
" ; TM 



$ 

: rem 

165 

21 0 

IFM$ = "*"THENPRINT"{ 2 SU}":GOTO205 

:rem 

106 

21 5 

TM=VAL(TM$):IFTM>0ANDTM<13ANDTM=INT(TM)THEN300 

: rem 

1 71 

220 

IFTM>12THENTMS = " * " :GOT0210 

: rem 

10 

225 

L=LEN(TM$) 

: rem 

23 

230 

TM=0:FORJ=1TOLL-L 

: rem 

48 

235 

IFMID$(M$,J,1)="*"THENTM=TM+1:G0T0245 

: rem 

127 

240 

IFTM$=MID$(M$ , J, L)THENJ=LL+2 

: rem 

1 28 

245 

NEXTJ: IFJ = LL+1THENTM? = "*":GOT0210 

: rem 

13 

2 50 

B=0 

:rem 

70 

300 

D=0 

:rem 

68 

305 

X=0:FORJ=1TOLL 

: rem 

1 1 3 

31 0 

IFX=TMTHENTM$ =MID$(M$,J) :G0T032 5 

: rem 

205 

31 5 

IFMID$(M$,J,1)= "*"THENX=X+1 

: rem 

222 

320 

NEXT 

: rem 

21 2 

325 

FORJ =1TOLE N(TM$) 

: rem 

209 

330 

IFMID$(TM$,J,1)="*"THENTM$ =LEFT$(TM$,J-l) 

: GOTO340 
: rem 

43 

335 

NEXT 

: rem 

21 8 

340 

LY=0 

:rem 

169 

345 

IFTY/4<>INT(TY/4)THEN360 

:rem 

201 

350 

IFTY/1 00-0INT (TY/l 00) THENLY=1 :GOTO360 

:rem 

5 

355 

IFTY/400=INT(TY/400)THENLY=1 

:rem 

199 

360 

TN$ =N$ 

:rem 

14 

365 

IFTM= 9 ORTM= 4 ORTM= 6 ORTM=11THENTN$ =LEFT$(N$ 

? 60 ) 

:rem 

99 

370 

IFTM=2THENTN$ =LEFT$(N$,56) :IFLY=1THENTN$ = 

LEFT$(N$ 
:rem 

,58) 

205 

400 

PRINT"{CLR} "TY;TAB(20-LEN(TM$)/2);"{RVS} 

";TM$;"{OFF} 

410 

";TAB(33);TY 

: rem 

64 

PRINT:PRINT:PRINT 

: rem 

1 76 

420 

FORJ= 1 TOLEN (D$.) STEP3 

: rem 

223 
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430 

PRINTMID$(D$,J,3)"{GIU'}" 

: rem 

5 

440 

NEXT 

: rem 

21 5 

450 

X=0 

: rem 

94 

460 

FORJ=lTOTM 

: rem 

1 25 

470 

X=X+ASC(MID$(C$,J,1))-20 

: rem 

243 

480 

NEXT 

: rem 

21 9 

490 

IFLY=1ANDTMXlTHENX=X+1 

: rem 

1 54 

500 

X=X+(TY-1)*3 65 + INT((TY-1)/4)-INT((TY-1)/l00)+INT( 

(TY- 


1)/400) 

: rem 

2 

51 0 

X=X+1-LEN(TN$)/2 

: rem 

99 

520 

X=X-7*INT(X/7) 

: rem 

1 2 

530 

S$ = "{ 7 DES}" 

: rem 

91 

540 

PRINT"{HOME}{ 2 GIU'}"S$ 

: rem 

22 

550 

IFX=0THEN570 

: rem 

1 85 

560 

FORJ=OTOX-1:PRINT"{GIU'}"S$:NEXT 

: rem 

1 58 

570 

FORJ=1TOLEN(TN$)STEP2 

: rem 

66 

580 

X=X+1 

: rem 

230 

590 

IFX=8THENX=1:S$=S$+"{ 5 DESPRINT"{HOME}{ 

3 GIU 

'}"; 



: rem 

224 

600 

PRINT"{GIU 1 }"S$; 

: rem 

42 

61 0 

A( INT(J/2)+1 )=1 024+PEEK(211)+40*PEEK(21 4) 

: rem 

107 

620 

PRINTMID$(TN$,J,2) 

: rem 

1 4 

630 

NEXT 

: rem 

21 6 

640 

IFDO0THENG0SUB3060 

: rem 

1 43 

650 

IFBTHENGOSUB2000IGOTO700 

: rem 

231 

660 

PRINT"{HOME}{ 17 GIU'}" 

: rem 

161 

670 

PRINTCHR?(144)"N = MESE SEGUENTE : L = MESE 

PRECEDENT 


E" 

: rem 

58 

680 

PRINT"{GIU 1 }C = OROLOGIO (ON) : X = OROLOGIO (OFF)" 



: rem 

1 89 

690 

PRINT"{GIU'}D = DATA{ 10 SPAZI}: B = LEVA IL TESTO";C 


HR$(31) 

: rem 

18 

700 

GETQ$ 

: rem 

236 

705 

IFC = 0THEN72 5 

: rem 

1 68 

71 0 

PRINT"{HOME}{ 10 GIU'}{ 32 DES}"; 

: rem 

1 

71 5 

PRINT"{RVS}"LEFT$(TI$,2)"."MID$(TI$,3,2)" 

MID$(TI$,5 


) " {OFF} " 

: rem 

55 

720 

IFTI$ = "000000"ANDDO0THEN4 000 

: rem 

62 

725 

IFQ$=""THEN700 

: rem 

233 

730 

IFQ$ <>"N"ANDQ$ <>"L"THEN760 

: rem 

200 

735 

IFQ$="N"THENTM=TM+1:IFTM>12THENTM=1:TY=TY+1 

: rem 

242 

740 

IFTY>9999THENTY=9999:TM=12:GOTO700 

: rem 

1 23 

745 

IFQ$ = "L"THENTM=TM-1 :IFTM<1THENTM=12:TY=TY-1 

: rem 

243 

750 

IFTY<1THENTY=1:TM=1:GOTO700 

: rem 

226 

755 

GOTO300 

: rem 

109 

760 

IFQ$ = "B"THENB=NOTB:GOTO650 

: rem 

83 

765 

IFQ$="C"THENGOSUB900:GOTO650 

: rem 

1 92 

770 

IFQ$ = "X"THENC=0:PRINT" {HOME} { 10 GIU'H 32 

DES} " 




: rem 

225 

775 

IFQ$="D"THENGOSUB3060:GOSUB3000:GOTO650 

:rem 

1 1 1 

780 

GOTO700 

: rem 

1 1 1 
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900 i 

GOSUB2000 


: rem 

21 9 

91 0 i 

C=1 


: rem 

75 

920 

PRINT"{HOME}{ 17 GIU'}" 


: rem 

1 60 

930 

INPUT"TEMPO (ORA){ 3 SPAZI}*{ 3 SIN}"; 

HT$ 

:rem 

36 

940 

A=VAL(HT$) :L= LEN(HT$) 


: rem 

1 94 

950 

IFA=0ANDHT$<>"0"ANDHT$ <>"00"THENPRINT" 

{ 2 

SU}":G0T093 


0 


: rem 

62 

960 

IFL>2ORA<0ORA>23ORA<>INT(A)THENPRINT"{ 

2 

SU}":GOTO930 




: rem 

1 99 

970 

IFL=1THENHT$="0"+HT$ 


: rem 

1 1 6 

980 

PRI NT 


: rem 

46 

990 

INPUT"TEMPO (MIN){ 3 SPAZl}*{ 3 SIN}"; 

MT$ 

:rem 

49 

1 000 

A=VAL(MT$):L=LEN(MT$). 


: rem 

240 

1 01 0 

IFA= 0ANDMT$< >"0"ANDMT$<>"00"THENPRINT 

"{ 

2 SU}":GOT09 


90 


: rem 

1 1 4 

1 020 

IFL>20RA< 0ORA>59ORA<>INT(A)THENPRINT" 

{ 2 

SU}":G0T099 


0 


: rem 

250 

1 030 

IFL=1THENMT$ = "0"+MT$ 


: rem 

1 62 

1 040 

PRINT 


: rem 

82 

1 050 

INPUT"TEMPO (SEC){ 3 SPAZI}*{ 3 SIN}" 

;HS$ :rem 

70 

1 060 

A=VAL(HS$):L=LEN(HS$) 


: rem 

234 

1 070 

IFA=0ANDHS$<>"0"ANDHS$<>"00"THENPRINT 

"{ 

2 SU}":GOTOl 


050 


: rem 

1 44 

1 080 

IFL>2ORA<0ORA>59ORA<>INT(A)THENPRINT" 

{ 2 

SU}":GOTO!0 


50 


: rem 

36 

1 090 

IFL=1THENHS8 = "0"+HS$ 


: rem 

1 56 

1 1 00 

TI$=HT$+MT$+HS$ 


: rem 

90 

2000 

PRINT"{HOME}{ 17 GIU'}" 


: rem 

1 99 

201 0 

PRINTCL$"{GIU 1 }":PRINTCL$"{GIU 1 }":PRINTCL$ :rem 

1 61 

2020 

RETURN 


: rem 

1 64 

3000 

GOSUB2000 


: rem 

5 

301 0 

PRINT"{HOME}{ 17 GIU'}" 


: rem 

201 

3020 

INPUT"DATA{ 10 SPAZI}*{ 3 SIN}";DA$ 


: rem 

1 52 

3030 

D=VAL(DA$):L=LEN(DA$) 


: rem 

1 92 

3040 

IFL>2ORD<0ORD>LEN (TN$ ) /20RDO INT (D ) THENPRINT" 



{ 2 SU}":GOTO3020 


: rem 

22 

3050 

IFD=0THEN3130 


: rem 

254 

3060 

Al=PEEK(A(D)):A2=PEEK(A(D)+1) 


: rem 

86 

3070 

IFD=0THEN3140 


: rem 

1 

3080 

IFAl=32THEN31 1 0 


: rem 

98 

3090 

Al =Al+128:IFAl>255THENAl =Al-256 


: rem 

226 

31 00 

POKEA(D),Al 


: rem 

1 03 

31 1 0 

A2=A2 + 128 :IFA2>255THENA2=A2-256 


: rem 

224 

31 20 

POKEA(D)+1,A2 


: rem 

1 98 

31 30 

GOSUB2000 


: rem 

9 

31 40 

RETURN 


: rem 

1 68 

4000 

GOSUB3060 


: rem 

13 

401 0 

D=D+1 :IFD>LEN(TN$)/2THEN41 00 


: rem 

1 24 

4020 

GOSUB3060 


: rem 

1 5 

4030 

IFTI$="000000"THEN4030 


: rem 

174 

4040 

G0T0725 


: rem 

1 59 


30 



4100 IFTY=9999THEND=0:GOTO4020 

41 1 0 D=1 :TM=TM+1 :IFTM>12THENTM=1 :TY=TY+1 

4120 GOTO305 


: re 
: rei 
: re 


59 

3 

1 52 
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